60000 MAX=VAL(LEFT$(IN$,2)):X=VAL(MID$(IN$,4,5)):BR=VAL(MID$(IN$,7,8)):TEM=58640
60010 USB=VAL(MID$(IN$,10,10)):TXT$=MID$(IN$,12,LEN(IN$)):
60020 S$="":AMAX=MAX:Y=BR+LEN(TXT$):MAX=BR+MAX+LEN(TXT$):AY=Y+1
60030 FL$="                                                                        "
60040 IF JG=0 THEN JG=1:POKE 214,X:POKE 211,Y:SYSTEM:PRINT LEFT$(FL$,AMAX)
60050 POKE214,X:POKE211,BR:SYSTEM:PRINTTXT$:P$=CHR$(95):Q$=CHR$(20)
60060 IF Y=MAX THEN FL=1
60070 POKE214,X:POKE211,Y:SYSTEM:PRINT" [146]":GET A$:IF A$="" THEN 60070
60080 IFA$=Q$ANDY>=AYTHENY=Y-1:S$=LEFT$(S$,LEN(S$)-1):POKE214,X:POKE211,Y+1:SYSTEM:KK=1
60090 IFA$=Q$ AND KK=1 THEN PRINT" ":FL=0:KK=0:GOTO60060
60100 IFA$=P$THENPOKE214,X:POKE211,AY-1:SYSTEM:PRINT LEFT$(FL$,AMAX+1)
60110 IFA$=P$THENPOKE214,X:POKE211,AY-1:SYSTEM:PRINT" [146]":Y=AY-1:MAX=AMAX:FL=0:GOTO60000
60120 IFA$=CHR$(13)THENPOKE214,X:POKE211,Y:SYSTEM:PRINT" ":USB=0:FL=0:RETURN
60130 IF FL=1 THEN 60060
60140 CH=ASC(A$):IF USB=0 OR USB=1 THEN IF A$=CHR$(32) THEN 60190
60150 IFUSB=0ORUSB=1THENIFCH>64ANDCH<91THEN60190
60160 IFUSB=0ORUSB=1THENIFCH>192ANDCH<219THEN60190
60170 IFUSB=0ORUSB=2THENIFCH<33ORCH>65THEN60060
60180 IFUSB=1THEN60060
60190 POKE214,X:POKE211,Y:SYSTEM:PRINTA$:Y=Y+1:S$=S$+A$:GOTO60060